home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AttyPhoneLog.cpt / Attorney's Phone Log / background_3423.txt < prev    next >
Text File  |  1988-01-24  |  6KB  |  274 lines
  1. -- background: 3423 from stack: in
  2. -- bmap block id: 5836
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Dialer
  6. ----- HyperTalk script -----
  7. on opencard
  8.   if field "Start" is empty then
  9.     show background button "Start"
  10.     hide background button "Stop"
  11.   else
  12.     hide background button "Start"
  13.     if field "Stop" is empty then
  14.       show background button "Stop"
  15.     else
  16.       hide background button "Stop"
  17.       show background button "Home"
  18.       show background button "New Call"
  19.       show background button "First Card"
  20.     end if
  21.  
  22.   end if
  23.  
  24.   set lockText of background field "Start" to true
  25.   set lockText of background field "Stop" to true
  26.   set lockText of background field "Date" to true
  27.   set lockText of background field "Elapsed" to true
  28. end opencard
  29.  
  30. on ReturnKey
  31.   if field "Start" is empty then
  32.     click at location of background button "Start"
  33.   end if
  34. end ReturnKey
  35.  
  36. on EnterKey
  37.   if field "Start" is empty then
  38.     click at location of background button "Start"
  39.   end if
  40. end EnterKey
  41.  
  42.  
  43.  
  44.  
  45. -- part 1 (button)
  46. -- low flags: 80
  47. -- high flags: 8003
  48. -- rect: left=267 top=41 right=63 bottom=367
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Start
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   set lockText of background field "Date" to false
  60.   set lockText of background field "Start" to false
  61.   put the date into field "Date"
  62.   put the time into field "Start"
  63.   set lockText of background field "Start" to true
  64.   set lockText of background field "Date" to true
  65.   global startsecs
  66.   put the seconds into startsecs
  67.   hide background button "Start"
  68.   hide background button "New Call"
  69.   hide background button "First Card"
  70.   show background button "Stop"
  71.   click at the location of background field "Party"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 2 (field)
  77. -- low flags: 01
  78. -- high flags: 0004
  79. -- rect: left=85 top=75 right=96 bottom=231
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 3
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Start
  88.  
  89.  
  90. -- part 3 (field)
  91. -- low flags: 01
  92. -- high flags: 0004
  93. -- rect: left=85 top=51 right=71 bottom=230
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Date
  102.  
  103.  
  104. -- part 4 (field)
  105. -- low flags: 01
  106. -- high flags: 0004
  107. -- rect: left=85 top=100 right=121 bottom=232
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Stop
  116.  
  117.  
  118. -- part 5 (button)
  119. -- low flags: 80
  120. -- high flags: 8003
  121. -- rect: left=269 top=73 right=95 bottom=369
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Stop
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   set the numberFormat to "0.0"
  133.   set locktext of background field "Stop" to false
  134.   set locktext of background field "Elapsed" to false
  135.   get the time
  136.   put it into field "Stop"
  137.   put the secs into stopsecs
  138.   get field "Start"
  139.   convert it to seconds
  140.   put (the seconds - it)/3600  & " Hours" into field Elapsed
  141.   set locktext of background field "Stop" to true
  142.   set locktext of background field "Elapsed" to true
  143.   hide background button "Stop"
  144.   show background button "Home"
  145.   show background button "New Call"
  146.   show background button "First Card"
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 6 (field)
  152. -- low flags: 01
  153. -- high flags: 0004
  154. -- rect: left=86 top=130 right=150 bottom=233
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Elapsed
  163.  
  164.  
  165. -- part 7 (field)
  166. -- low flags: 00
  167. -- high flags: 0004
  168. -- rect: left=88 top=162 right=182 bottom=324
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 0
  172. -- font id: 3
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Party
  177.  
  178.  
  179. -- part 8 (field)
  180. -- low flags: 00
  181. -- high flags: 0004
  182. -- rect: left=89 top=191 right=212 bottom=325
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Client
  191. ----- HyperTalk script -----
  192. on closeField
  193.   click at location of background field "Notes"
  194. end closefield
  195.  
  196.  
  197.  
  198. -- part 9 (field)
  199. -- low flags: 00
  200. -- high flags: 0004
  201. -- rect: left=88 top=223 right=309 bottom=490
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 251
  206. -- text size: 9
  207. -- style flags: 0
  208. -- line height: 12
  209. -- part name: Notes
  210. ----- HyperTalk script -----
  211. on closeField
  212.   click at location of background field "Party"
  213. end closefield
  214.  
  215.  
  216. -- part 10 (button)
  217. -- low flags: 00
  218. -- high flags: 8003
  219. -- rect: left=381 top=42 right=64 bottom=481
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: New Call
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   doMenu New Card
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 11 (button)
  236. -- low flags: 00
  237. -- high flags: 8003
  238. -- rect: left=316 top=107 right=129 bottom=416
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Home
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   push card
  250.   visual effect zoom close
  251.   go home
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 12 (button)
  257. -- low flags: 00
  258. -- high flags: 8003
  259. -- rect: left=381 top=75 right=97 bottom=481
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: First Card
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   visual effect zoom open
  271.   go to card "Phone Log"
  272. end mouseUp
  273.  
  274.